home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS077A.dsk / CREATE RESTORE LN.bas < prev    next >
BASIC Source File  |  2012-02-16  |  783b  |  14 lines
  1. 1  HOME : PRINT "THIS PROGRAM CREATES A TEXT FILE WHICH  WHEN EXEC-UTED ADDS LINES TO YOUR PRO-  GRAM TO RESTORE READS TO A SPECIFIC DATASTATEMENT. TO USE ADD <LN> &<LINE NUMBERTO YOUR PROGRAM."
  2. 2  PRINT : PRINT : PRINT : INPUT "PRESS RETURN TO CREATE TEXTFILE/        PRESS Q TO QUIT";A$: IF A$ = "Q"  THEN  END 
  3. 3 D$ =  CHR$(4)
  4. 4  PRINT D$;"OPEN RESTORE LN"
  5. 5  PRINT D$;"WRITE RESTORE LN"
  6. 6  LIST 10,63120
  7. 7  PRINT D$;"CLOSE"
  8. 8  END 
  9. 10  GOSUB 63100: CALL  -144: POKE 1013,76: POKE 1014,64: POKE 1015,3
  10. 63100 Y$ = "340:C9 52 D0 26 20 B1 00 20 67 DD 20 52 E7 20 1A D6 90 08 A0 04 B1 9B C9 83 F0 03 4C 7C D9 A5 9B A4 9C 38 E9 01 20 50 D8 4C A6 D9 60"
  11. 63105 Y$ = Y$ +" N D823G"
  12. 63110  FOR I = 1 TO  LEN(Y$)
  13. 63115  POKE 511 +I, ASC( MID$ (Y$,I,1)) +128
  14. 63120  NEXT : POKE 72,0: RETURN